#!/usr/bin/env perl
use strict;
use utf8;
my ($big, $small) = @ARGV;
my $where = index($big, $small);
print "$small is first appear index in $big: $where\n";
